home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Format 2004 Junue - Disc 1
/
MacFormat 143 CD1.iso
/
Serious Software
/
Geo3D 2.1.2
/
Sample Scripts
/
Animation
next >
Wrap
Text File
|
2003-05-27
|
700b
|
21 lines
tell application "Geo3D"
activate
make new document
set x to import animation from file ":Sample Scripts:Demo.geo" -- x = number of frames
if x > 0 then -- 0: error
set moving to wireframerenderer -- Viewer:When Moving:QuickDraw 3D WireFrame
play -- all frames
play with backwards -- all frames backwards
play from 5 to 33
play from 5 to 33 with backwards -- from 33 to 5
set moving to asis -- Viewer:When Moving:As Is
play from 20 -- from 25 to last
play from 20 with backwards -- from last to 20
play to 30 -- from 1 to 30
play to 30 with backwards -- from 30 to 1
go to frame 12 -- frame 12
go to frame x -- last frame
delete recording
initial view
end if
end tell